home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / RLaB 1.18c / rlib / loaddir.r < prev    next >
Encoding:
Text File  |  1994-12-27  |  678 b   |  30 lines  |  [TEXT/RLAB]
  1. //-------------------------------------------------------------------//
  2.  
  3. //  Syntax:     loaddir ( DIRNAME )
  4.  
  5. //  Description:
  6.  
  7. //  loaddir loads all of the Rfiles in the directory DIRNAME. DIRNAME
  8. //  is a string identifying the directory of Rfiles to be loaded. Only
  9. //  files with a postfix of `.r' will be loaded.
  10.  
  11. //  Example: 
  12. //  > loaddir ("/u1/ian/rlab/testmatrix");
  13. //  > loaddir (".");
  14.  
  15. //-------------------------------------------------------------------//
  16.  
  17.  
  18. loaddir = function ( dir )
  19. {
  20.   local (dir)
  21.  
  22.   dirnm = "| ls " + dir + "/*.r";
  23.   while (length (fn = getline (dirnm)))
  24.   {
  25.     printf ("\tLoading:\t%s\n", fn.[1]);
  26.     load (fn.[1]);
  27.   }
  28.   close (dirnm);
  29. };
  30.